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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS A ght me A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDAN THE RMS OF SUCH oftcce NSE AND WITH THE 
INCLUSION OF THE ABOVE. COPYRi Gt NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF ~ NOT BE PROVIDED OR OTH HERUISE OMADE AVAILABLE TO ANY 
fia” CO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE a phe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Compoket ihn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ARARAAAALALALALALALALL LASALLE LALLA LESSEE TEE TEESE EEE ERR EEE RES RESSe eee aa 


.MACRO NPADFS 
: NPARSE function code definitions 


NPAS_IMAGE = 0 


NPAS-LOOK = 9 
NPAS-EXTZV = 10 


; NPARSE matching codes 


NPAS_EXIT = 0 : Done 
NPAS_FAIL = — 3; Fail the parse 
NPAS$_ADVANCE = 1 ; Advance pointers 


: NPARSE flag bit definitions 


PASM_EXT = *x01 
NPASA”P RAM = *x02 
NPASM-ACTION = “X04 
NPASM~ STATE = *x0 
NPASM_MASK = *X1 
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NPASM_MSKADR 
NPASM_OF FSET 
NPA re LAST 


-ENDM WNPAD 
-MACRO InSoS STTBL DEBUG 


PSEC 
STTBL:: 
IF IDENTICAL 
mere DBGTPS$ 


ah 


ALSE 
“RATRO™ DBGTPS 
-ENDM 


: 4 
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“x20 
X40 
“18000 


NPASSTATE, NOWRT ,NOEXE ,BYTE 


<DEBUG>, <$DEBUG> 


<LABEL> 


SENDC 
NPADF$ 
FLG$$$ = -1 
NXTS$$ = 0 
-PSECT 
-ENDM = IMSGS$ 
-MACRO FIELDS,LABEL 
-PSECT NPASSTATE 
FLG$$$ = FLGS$$!NPASM_LAST 
NTRAN 
IF NOT_BLANK 
LABEL: 


F 
.ENDM F 
"MACRO NTRANS 

.PSECT NPASSTATE 


w1F EQUAL FLGS$$$+1 
G = 0 


.WORD FLGS$S 
NOT_EQUAL 


NOT_EQUAL 
NOT_EQUAL 
NO7_EQUAL 


-IF NOT_EQUAL 


FLGSSSENPASM_EXT 
FLGSSSENPASM_PARAM 
FLGSSSENPASM_ACTION 


FLGSSSENPASM_MASK 


FLGSSS&NPASM_STATE 


4 
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If EQUAL FLGSSSENPASM_LAST 

«IF EQUAL NXT 

-ERROR ; BAD DEFAULT TRANSITION 

~ENDC 

~ENDC 

 ENDC 

FLGSS$ = 

NXT$$$ = 0 
-ENDM NTRANS 


] 
| 
} 
| 
«MACRO ITRANS,LABEL ,ACTION,MASK,ADDR,PARAM | 
F NOT BLANK <PARAM> 
FLGSS$ = FLGS$$!NPASM_PARAM 
-MACRO_ PRMSSS 
DDRESS PARAM 
-ENDM — PRMSSS 
-ENDC 
| 
| 


IF <ACTION> 
FLGSSS$ =TELEBSSNPASH. ACTION 


-MACRO 
. ADDRESS ACTION 
-ENDM ACTSS$$ 
IF <MASK> 
FLGsss “aacett teage MASK NPASM _MSKADR 
“ERROR; 3 MASK ADDRESS NOT PRESENT 
MACRO BITSSS 
LONG MASK 
- ADDRESS ADDR 
-ENDM = BITS$$ 
~ENDC : 
IF <LABEL.> 
FLGS$$ = NPLOSSS NPASM. STATE 
-MACRO STASSS 
DDRESS LABEL 
“ENDM STASSS 
~ENDC 
-ENDM = I TRANS. 
-MACRO $IMAGE,SIZE,LABEL,ACTION,MASK,ADDR,PARAM 
.PSECT NPAS$STATE 
NTRANS 
DBGTPS$ 
-MACRO TYPS$ 
WORD 


~-ENDM = TYP$S$ 
-MACRO EXTSSS 
wy NG siz 

. END EXTS$$ 

irosss = FLGS$$'!NPASM_E 

spsect LABEL ACTION MASK, ADDR, PARAM 
.ENDM 


SIMA 
-MACRO clea -ACTION,MASK ,ADDR ,PARAM 


seieaiaeiiainel 


4 
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FLOSS = FLGSS$$'NPASM_E | 
ITRANS LABEL,ACTION, MASK, ADDR, PARAM 


.ENDM = SWORD 
-MACRO $BYTE,VALUE,LABEL, ACTION, MASK, ADDR, PARAM 
-PSECT NPAS$STATE 


“ERD 
cross = FLGSS$$'NPASM_E 
ITR ue LABEL,ACTION, MASK. ADDR, PARAM 


.ENDM «$8 
“MACRO SEOM, DUMMY LABEL ACTION, MASK ADDR, PARAM 
.PSECT NPASSTATE 


-MACRO TYPSSS 
. NPAS_EOM 


TyYPS$$ 
ITRANS LABEL,ACTION,MASK,ADDR,PARAM 


.ENDM SE 
>MACRO ite tine” eACTION, MASK ,ADDR, PARAM 


“ENDM = EXTS$$ 

FLGSSS = FLGS$$$!NPASM_E 

ITRANS LABEL,ACTION, AAsK. ADDR, PARAM 
.ENDM § 
“MACRO $SBEXP,RTN,LABEL, ACTION, MASK, ADDR, PARAM 

.PSECT. NPASSTATE 

DBGT 

.MACRO TYPSSS 

"WORD NPA$ SBEXP 

"ENDM = TYP$S$ 


-ENDM 


-ENDM 
-MACR 


-ENDM 


-ENDM 
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MACRO 


- MACRO 


CRO 


«MACRO EXTSSS 
ADDRESS RTN 


EXTS$$ 
Loss = FLGSS$!NPASM_E 
ye 4 LABEL ,ACTION, ASK. ADDR, PARAM 


SBEXP 
SNULL ,DUMMY ,LABEL ,ACTION, MASK, ADDR, PARAM 
-PSECT NPASSTATE 


PS$$$ 
“WOR NPAS_NULL 
iTRANS LABEL,ACTION,MASK,ADDR,PARAM 


SLOOK , VALUE ,LABEL ACTION, MASK, ADDR, PARAM 
-PSECT NPASSTATE 


MACRO TYPSSS 

«WORD 

NOT _ BLANK <VALUE> 
-ENDM $$$ 

FLGSS$ = FLGSSS$!NPASM_EXT 

ITRANS LABEL ,ACTION,MASK ,ADDR,PARAM 


$L00K 
SEXTZV,FLD, LABEL, ACTION, MASK, ADDR, PARAM 
.PSECT NPASST ATE 


DBGTP$ 

MACRO TYPSSS 

. WORD NPAs EXTZV 
-ENDR YP$$$ 


LISTS 4 lp 
AO ate | = FLGSS$!NPASH_E 
ITRANS LABEL ACTION, ASK. ADDR, PARAM 


Sext EV 
LISTS, VAL.POS,SIZ.FLG 
-MACRO EXTSS$ 


. NOT_BLANK VAL 

-BYTE VAL ; Field value 

If FALSE 

“ERROR 3 SEXTZV - FIELD VALUE NOT SPECIFIED 


If NOT_BLANK POS 

-BYTE POS 3; Field position 

.1F_FALSE 

-ERROR ; SEXTZV - FIELD POSITION NOT SPECIFIED 


4 
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<2 


T BLANK $12 
1z~ ; Field size 


A 
ERROR ; SEXTZV - FIELD SIZE NOT SPECIFIED 


lf NOT_BLANK FLG 
we FLG ; Flags 


| 
| 
| 
-BYTE : No flags | 
-ENDC 
-ENDM EXTSSS 
IST$ 
| 


- 


.ENDM 
“MACRO SERROR ERR LABEL ACTION, MASK, ADDR, PARAM 
.PSECT NPASSTATE 
TRANS 
DBGTPS 


-MACRO TYPSSS 
«WORD NPAS ERROR 
TyF3$ 


- ENDM 
-MACRO gETSes 
ONG ERR 
-ENDM EXTSSS 
FLGSSS = FLGSSS!NPASM 
ITRANS WNPAS PAIL ACTION. MASK ,ADDR , PARAM 
-ENDM  SERROR 
-MACRO ya oNBR peeeete ACTION,MASK ,ADDR, PARAM 


NTRANS 

DBGTPS 

-MACRO TYPSS$S 
WOR 


-ENDM XTS$$ 
FLGSS$ = FLGSSSNPASM_E 
I TRANS 


iy. LABEL,ACTION, ASK. ADDR, PARAM 
-ENDM $MATC 
MACRO $NEXT 
NXT$S$ = -1 
NTRANS 
GT 


DBGTP$ 
FLGS$$ = -1 
-ENDM S$NEXT 
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